home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
You can browse this item here: rpi
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 68 01 00 00 c8 01 00 00 |Archive.|h.......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 52 50 49 00 00 00 | 00 00 00 00 ff ff ff ff |.!RPI...|........|
|00000070| 44 fd ff ff 62 82 e1 cf | 00 00 00 00 ff ff ff ff |D...b...|........|
|00000080| 44 01 00 80 82 21 42 6f | 6f 74 00 00 00 76 d3 00 |D....!Bo|ot...v..|
|00000090| 3a 00 00 00 42 eb ff ff | ee 7f 28 a1 03 00 14 b2 |:...B...|..(.....|
|000000a0| 3a 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 00 |:...$...|.!Help..|
|000000b0| 00 76 d3 00 ed 0a 00 00 | 45 ff ff ff 94 09 67 f9 |.v......|E.....g.|
|000000c0| 03 00 dd bc ed 0a 00 00 | 82 00 00 00 82 21 52 75 |........|.....!Ru|
|000000d0| 6e 00 00 00 00 76 d3 00 | 52 00 00 00 45 eb ff ff |n....v..|R...E...|
|000000e0| 50 ea 61 f9 03 00 6c 64 | 52 00 00 00 93 0b 00 00 |P.a...ld|R.......|
|000000f0| 82 21 73 70 72 69 74 65 | 73 00 d3 00 e0 02 00 00 |.!sprite|s.......|
|00000100| 42 f9 ff ff 26 40 47 a1 | 03 00 d8 a2 e0 02 00 00 |B...&@G.|........|
|00000110| 09 0c 00 00 82 49 6e 64 | 65 78 00 00 00 76 d3 00 |.....Ind|ex...v..|
|00000120| a9 01 00 00 45 ff ff ff | 9d 2a 67 f9 03 00 df 51 |....E...|.*g....Q|
|00000130| a9 01 00 00 0d 0f 00 00 | 82 4f 72 69 67 00 00 00 |........|.Orig...|
|00000140| 00 76 d3 00 d3 07 00 00 | 42 fb ff ff ce 0b c8 c7 |.v......|B.......|
|00000150| 03 00 3e b0 d3 07 00 00 | da 10 00 00 82 52 50 49 |..>.....|.....RPI|
|00000160| 69 6e 64 65 78 00 d3 00 | 68 09 00 00 45 fb ff ff |index...|h...E...|
|00000170| 45 e2 67 f9 03 00 14 c6 | 68 09 00 00 d1 18 00 00 |E.g.....|h.......|
|00000180| 00 61 6c 00 fe 00 00 00 | 00 76 d3 00 d3 00 00 00 |.al.....|.v......|
|00000190| 76 fd 76 fd 76 fd 76 76 | 76 14 76 14 76 76 76 00 |v.v.v.vv|v.v.vvv.|
|000001a0| ae d1 76 76 00 00 00 00 | 00 00 00 00 00 00 00 00 |..vv....|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 8c 01 00 00 | 46 69 6c 65 44 61 74 61 |........|FileData|
|000001d0| 82 21 42 6f 6f 74 00 00 | 00 76 d3 00 3a 00 00 00 |.!Boot..|.v..:...|
|000001e0| 42 eb ff ff ee 7f 28 a1 | 03 00 14 b2 53 65 74 20 |B.....(.|....Set |
|000001f0| 57 69 6d 70 53 79 73 24 | 44 69 72 20 3c 4f 62 65 |WimpSys$|Dir <Obe|
|00000200| 79 24 44 69 72 3e 0a 49 | 63 6f 6e 53 70 72 69 74 |y$Dir>.I|conSprit|
|00000210| 65 73 20 3c 4f 62 65 79 | 24 44 69 72 3e 2e 21 53 |es <Obey|$Dir>.!S|
|00000220| 70 72 69 74 65 73 46 69 | 6c 65 44 61 74 61 82 21 |pritesFi|leData.!|
|00000230| 48 65 6c 70 00 00 00 76 | d3 00 ed 0a 00 00 45 ff |Help...v|......E.|
|00000240| ff ff 94 09 67 f9 03 00 | dd bc 20 20 20 20 20 20 |....g...|.. |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0a | | .|
|00000290| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 52 65 74 61 69 | | Retai|
|000002b0| 6c 20 50 72 69 63 65 73 | 20 49 6e 64 65 78 0a 0a |l Prices| Index..|
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002e0| 20 20 62 79 0a 0a 20 20 | 20 20 20 20 20 20 20 20 | by.. | |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000300| 20 20 20 20 45 64 64 69 | 65 20 4c 6f 72 64 0a 0a | Eddi|e Lord..|
|00000310| 0a 54 68 69 73 20 66 69 | 6c 65 20 63 6f 6e 74 61 |.This fi|le conta|
|00000320| 69 6e 73 20 61 20 70 72 | 6f 67 72 61 6d 6d 65 20 |ins a pr|ogramme |
|00000330| 74 6f 20 63 61 6c 63 75 | 6c 61 74 65 20 63 6f 6d |to calcu|late com|
|00000340| 70 61 72 69 74 69 76 65 | 20 70 72 69 63 65 73 20 |paritive| prices |
|00000350| 75 73 69 6e 67 20 74 68 | 65 0a 52 50 49 69 6e 64 |using th|e.RPIind|
|00000360| 65 78 20 66 72 6f 6d 20 | 31 39 32 35 20 74 6f 20 |ex from |1925 to |
|00000370| 31 39 39 30 2e 20 54 68 | 69 73 20 77 61 73 20 72 |1990. Th|is was r|
|00000380| 65 62 61 73 65 64 20 69 | 6e 20 31 39 38 37 2e 0a |ebased i|n 1987..|
|00000390| 0a 54 68 65 20 70 72 6f | 67 72 61 6d 20 69 73 20 |.The pro|gram is |
|000003a0| 73 65 6c 66 20 65 78 70 | 6c 61 6e 61 74 6f 72 79 |self exp|lanatory|
|000003b0| 2e 20 44 61 74 65 73 20 | 63 61 6e 20 62 65 20 65 |. Dates |can be e|
|000003c0| 6e 74 65 72 65 64 20 61 | 73 20 31 39 39 30 20 6f |ntered a|s 1990 o|
|000003d0| 72 20 61 73 20 39 30 0a | 28 66 6f 72 20 65 78 61 |r as 90.|(for exa|
|000003e0| 6d 70 6c 65 29 2e 0a 0a | 54 68 69 73 20 69 73 20 |mple)...|This is |
|000003f0| 6a 75 73 74 20 6f 6e 65 | 20 70 72 6f 67 72 61 6d |just one| program|
|00000400| 6d 65 20 69 6e 20 61 20 | 63 6f 6c 6c 65 63 74 69 |me in a |collecti|
|00000410| 6f 6e 20 6f 66 20 70 72 | 6f 67 72 61 6d 6d 65 73 |on of pr|ogrammes|
|00000420| 20 74 68 61 74 20 49 0a | 6f 72 69 67 69 6e 61 6c | that I.|original|
|00000430| 6c 79 20 77 72 6f 74 65 | 20 66 6f 72 20 74 68 65 |ly wrote| for the|
|00000440| 20 4d 61 73 74 65 72 2e | 20 4f 74 68 65 72 20 69 | Master.| Other i|
|00000450| 6e 63 6c 75 64 65 20 49 | 6e 74 65 72 65 73 74 20 |nclude I|nterest |
|00000460| 63 61 6c 63 75 6c 61 74 | 69 6f 6e 73 2c 0a 4c 6f |calculat|ions,.Lo|
|00000470| 6e 67 20 57 61 76 65 20 | 62 75 73 69 6e 65 73 73 |ng Wave |business|
|00000480| 20 63 79 63 6c 65 73 20 | 61 6c 6f 6e 67 20 77 69 | cycles |along wi|
|00000490| 74 68 20 73 6f 6d 65 20 | 70 68 6f 74 6f 67 72 61 |th some |photogra|
|000004a0| 70 68 69 63 20 73 6f 66 | 74 77 61 72 65 2e 0a 0a |phic sof|tware...|
|000004b0| 41 6e 79 20 63 6f 72 72 | 65 63 74 69 6f 6e 2c 20 |Any corr|ection, |
|000004c0| 72 68 75 62 61 72 62 73 | 20 6f 72 20 6f 74 68 65 |rhubarbs| or othe|
|000004d0| 72 20 69 64 65 61 73 20 | 74 6f 20 6d 65 20 70 6c |r ideas |to me pl|
|000004e0| 65 61 73 65 2c 20 76 69 | 61 20 4e 6f 72 77 69 63 |ease, vi|a Norwic|
|000004f0| 68 20 0a 43 6f 6d 70 75 | 74 65 72 73 2e 0a 0a 32 |h .Compu|ters...2|
|00000500| 33 20 53 65 70 74 65 6d | 62 65 72 20 31 39 39 30 |3 Septem|ber 1990|
|00000510| 2e 0a 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |... | |
|00000520| 20 20 20 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | =====|========|
|00000530| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000540| 3d 3d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |==. | |
|00000550| 20 20 20 20 20 4d 6f 64 | 69 66 69 63 61 74 69 6f | Mod|ificatio|
|00000560| 6e 20 62 79 20 44 61 76 | 69 64 20 48 6f 6c 64 65 |n by Dav|id Holde|
|00000570| 6e 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n. | |
|00000580| 20 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | ======|========|
|00000590| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005a0| 3d 0a 0a 54 68 65 20 6f | 72 69 67 69 6e 61 6c 20 |=..The o|riginal |
|000005b0| 70 72 6f 67 72 61 6d 20 | 74 6f 6f 6b 20 74 68 65 |program |took the|
|000005c0| 20 52 50 49 20 66 72 6f | 6d 20 44 41 54 41 20 73 | RPI fro|m DATA s|
|000005d0| 74 61 74 65 6d 65 6e 74 | 73 20 69 6e 73 69 64 65 |tatement|s inside|
|000005e0| 20 74 68 65 0a 70 72 6f | 67 72 61 6d 2e 20 54 68 | the.pro|gram. Th|
|000005f0| 69 73 20 6d 61 64 65 20 | 69 74 20 72 61 74 68 65 |is made |it rathe|
|00000600| 72 20 69 6e 66 6c 65 78 | 69 62 6c 65 20 61 73 20 |r inflex|ible as |
|00000610| 61 6c 74 68 6f 75 67 68 | 20 69 74 20 77 61 73 20 |although| it was |
|00000620| 70 6f 73 73 69 62 6c 65 | 20 74 6f 0a 61 64 64 20 |possible| to.add |
|00000630| 65 78 74 72 61 20 79 65 | 61 72 73 20 79 6f 75 20 |extra ye|ars you |
|00000640| 77 6f 75 6c 64 20 68 61 | 76 65 20 74 6f 20 27 68 |would ha|ve to 'h|
|00000650| 61 63 6b 27 20 74 68 65 | 20 70 72 6f 67 72 61 6d |ack' the| program|
|00000660| 20 74 6f 20 64 6f 20 73 | 6f 2e 20 4e 6f 74 20 6f | to do s|o. Not o|
|00000670| 6e 6c 79 0a 77 6f 75 6c | 64 20 79 6f 75 20 68 61 |nly.woul|d you ha|
|00000680| 76 65 20 74 6f 20 61 64 | 64 20 65 78 74 72 61 20 |ve to ad|d extra |
|00000690| 44 41 54 41 20 73 74 61 | 74 65 6d 65 6e 74 73 20 |DATA sta|tements |
|000006a0| 62 75 74 20 63 68 61 6e | 67 65 20 74 68 65 20 65 |but chan|ge the e|
|000006b0| 6e 64 20 79 65 61 72 2c | 0a 77 68 69 63 68 20 77 |nd year,|.which w|
|000006c0| 61 73 20 66 69 78 65 64 | 20 61 74 20 31 39 39 30 |as fixed| at 1990|
|000006d0| 2e 0a 0a 49 20 74 68 65 | 72 65 66 6f 72 65 20 70 |...I the|refore p|
|000006e0| 75 74 20 74 68 65 20 52 | 50 49 20 64 61 74 61 20 |ut the R|PI data |
|000006f0| 69 6e 74 6f 20 61 6e 20 | 65 78 74 65 72 6e 61 6c |into an |external|
|00000700| 20 74 65 78 74 20 66 69 | 6c 65 20 63 61 6c 6c 65 | text fi|le calle|
|00000710| 64 20 27 49 6e 64 65 78 | 27 0a 69 6e 20 74 68 65 |d 'Index|'.in the|
|00000720| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 64 69 72 | applica|tion dir|
|00000730| 65 63 74 6f 72 79 2e 20 | 54 68 69 73 20 69 73 20 |ectory. |This is |
|00000740| 61 20 62 69 74 20 69 6e | 66 6c 65 78 69 62 6c 65 |a bit in|flexible|
|00000750| 20 73 6f 20 79 6f 75 20 | 77 69 6c 6c 20 6e 65 65 | so you |will nee|
|00000760| 64 0a 74 6f 20 62 65 20 | 63 61 72 65 66 75 6c 20 |d.to be |careful |
|00000770| 69 66 20 79 6f 75 20 61 | 6c 74 65 72 20 69 74 2c |if you a|lter it,|
|00000780| 20 62 75 74 20 69 74 20 | 69 73 20 61 20 6c 6f 74 | but it |is a lot|
|00000790| 20 65 61 73 69 65 72 20 | 74 68 61 6e 20 63 68 61 | easier |than cha|
|000007a0| 6e 67 69 6e 67 20 74 68 | 65 0a 70 72 6f 67 72 61 |nging th|e.progra|
|000007b0| 6d 20 69 74 73 65 6c 66 | 2e 20 49 20 68 61 76 65 |m itself|. I have|
|000007c0| 20 6e 6f 74 20 63 68 61 | 6e 67 65 64 20 74 68 65 | not cha|nged the|
|000007d0| 20 6d 61 69 6e 20 70 72 | 6f 67 72 61 6d 20 73 74 | main pr|ogram st|
|000007e0| 72 75 63 74 75 72 65 2e | 20 54 68 69 73 20 69 73 |ructure.| This is|
|000007f0| 20 61 0a 62 69 74 20 27 | 64 65 6c 69 63 61 74 65 | a.bit '|delicate|
|00000800| 27 20 61 73 20 69 74 20 | 75 73 65 73 20 49 4e 50 |' as it |uses INP|
|00000810| 55 54 20 73 74 61 74 65 | 6d 65 6e 74 73 20 73 6f |UT state|ments so|
|00000820| 20 62 65 77 61 72 65 20 | 6f 66 20 77 68 61 74 20 | beware |of what |
|00000830| 79 6f 75 20 74 79 70 65 | 2c 0a 74 68 65 72 65 20 |you type|,.there |
|00000840| 69 73 20 6e 6f 20 74 72 | 61 70 70 69 6d 67 20 66 |is no tr|appimg f|
|00000850| 6f 72 20 73 69 6c 6c 20 | 69 6e 70 75 74 20 64 61 |or sill |input da|
|00000860| 74 61 2e 20 28 47 49 47 | 4f 29 0a 0a 54 68 65 20 |ta. (GIG|O)..The |
|00000870| 66 69 72 73 74 20 79 65 | 61 72 20 69 73 20 6e 6f |first ye|ar is no|
|00000880| 77 20 74 68 65 20 79 65 | 61 72 20 6f 6e 20 74 68 |w the ye|ar on th|
|00000890| 65 20 66 69 72 73 74 20 | 6c 69 6e 65 20 6f 66 20 |e first |line of |
|000008a0| 74 68 65 20 66 69 6c 65 | 2e 20 41 66 74 65 72 20 |the file|. After |
|000008b0| 74 68 69 73 0a 63 6f 6d | 65 20 74 68 65 20 69 6e |this.com|e the in|
|000008c0| 64 65 78 65 73 20 66 6f | 72 20 61 6c 6c 20 74 68 |dexes fo|r all th|
|000008d0| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 79 65 61 72 |e follow|ing year|
|000008e0| 73 2e 20 54 68 65 72 65 | 20 6d 75 73 74 20 6e 6f |s. There| must no|
|000008f0| 74 20 62 65 20 61 6e 79 | 0a 62 6c 61 6e 6b 20 6c |t be any|.blank l|
|00000900| 69 6e 65 73 2c 20 61 6e | 64 20 74 68 65 72 65 20 |ines, an|d there |
|00000910| 6d 75 73 74 20 6e 6f 74 | 20 62 65 20 61 6e 79 20 |must not| be any |
|00000920| 73 70 61 63 65 73 20 62 | 65 74 77 65 65 6e 20 74 |spaces b|etween t|
|00000930| 68 65 20 73 74 61 72 74 | 20 6f 66 20 61 0a 6c 69 |he start| of a.li|
|00000940| 6e 65 20 61 6e 64 20 74 | 68 65 20 69 6e 64 65 78 |ne and t|he index|
|00000950| 2e 20 49 66 20 79 6f 75 | 20 77 61 6e 74 20 74 6f |. If you| want to|
|00000960| 20 61 64 64 20 63 6f 6d | 6d 65 6e 74 73 20 79 6f | add com|ments yo|
|00000970| 75 20 63 61 6e 20 70 75 | 74 20 74 68 65 6d 20 6f |u can pu|t them o|
|00000980| 6e 20 61 6e 79 0a 6c 69 | 6e 65 20 61 66 74 65 72 |n any.li|ne after|
|00000990| 20 74 68 65 20 61 63 74 | 75 61 6c 20 69 6e 64 65 | the act|ual inde|
|000009a0| 78 20 28 49 27 76 65 20 | 69 6e 63 6c 75 64 65 64 |x (I've |included|
|000009b0| 20 74 68 65 20 64 65 63 | 61 64 65 73 20 74 6f 20 | the dec|ades to |
|000009c0| 64 65 6d 6f 6e 73 74 72 | 61 74 65 0a 74 68 69 73 |demonstr|ate.this|
|000009d0| 29 2e 20 49 20 68 61 76 | 65 20 75 73 65 64 20 45 |). I hav|e used E|
|000009e0| 64 64 69 65 20 4c 6f 72 | 64 27 73 20 6f 72 69 67 |ddie Lor|d's orig|
|000009f0| 69 6e 61 6c 20 64 61 74 | 61 20 66 72 6f 6d 20 74 |inal dat|a from t|
|00000a00| 68 65 20 79 65 61 72 73 | 20 31 39 32 35 20 74 6f |he years| 1925 to|
|00000a10| 0a 31 39 39 30 2c 20 62 | 75 74 20 69 74 20 73 68 |.1990, b|ut it sh|
|00000a20| 6f 75 6c 64 20 6e 6f 77 | 20 62 65 20 70 6f 73 73 |ould now| be poss|
|00000a30| 69 62 6c 65 20 74 6f 20 | 65 78 74 65 6e 64 20 74 |ible to |extend t|
|00000a40| 68 69 73 20 62 61 63 6b | 77 61 72 64 73 20 61 6e |his back|wards an|
|00000a50| 64 0a 66 6f 72 77 61 72 | 64 73 20 66 61 69 72 6c |d.forwar|ds fairl|
|00000a60| 79 20 65 61 73 69 6c 79 | 2e 0a 0a 41 73 20 61 20 |y easily|...As a |
|00000a70| 27 64 6f 75 62 6c 65 20 | 63 68 65 63 6b 27 20 74 |'double |check' t|
|00000a80| 68 61 74 20 74 68 65 20 | 64 61 74 61 20 68 61 73 |hat the |data has|
|00000a90| 20 62 65 65 6e 20 65 6e | 74 65 72 65 64 20 63 6f | been en|tered co|
|00000aa0| 72 72 65 63 74 6c 79 2c | 20 69 66 20 79 6f 75 0a |rrectly,| if you.|
|00000ab0| 68 6f 6c 64 20 64 6f 77 | 6e 20 65 69 74 68 65 72 |hold dow|n either|
|00000ac0| 20 41 4c 54 20 6b 65 79 | 20 77 68 65 6e 20 79 6f | ALT key| when yo|
|00000ad0| 75 20 73 74 61 72 74 20 | 75 70 20 74 68 65 20 70 |u start |up the p|
|00000ae0| 72 6f 67 72 61 6d 20 69 | 74 20 77 69 6c 6c 20 70 |rogram i|t will p|
|00000af0| 72 69 6e 74 20 6f 75 74 | 0a 61 20 6c 69 73 74 20 |rint out|.a list |
|00000b00| 6f 66 20 74 68 65 20 79 | 65 61 72 73 20 61 6e 64 |of the y|ears and|
|00000b10| 20 74 68 65 20 52 50 49 | 27 73 20 62 65 66 6f 72 | the RPI|'s befor|
|00000b20| 65 20 69 74 20 72 75 6e | 73 2e 20 50 61 67 69 6e |e it run|s. Pagin|
|00000b30| 67 20 69 73 20 65 6e 61 | 62 6c 65 64 20 74 6f 0a |g is ena|bled to.|
|00000b40| 73 74 6f 70 20 69 74 20 | 61 6c 6c 20 73 63 72 6f |stop it |all scro|
|00000b50| 6c 6c 69 6e 67 20 62 79 | 20 74 6f 20 66 61 73 74 |lling by| to fast|
|00000b60| 20 73 6f 20 79 6f 75 20 | 77 69 6c 6c 20 6e 65 65 | so you |will nee|
|00000b70| 64 20 74 6f 20 70 72 65 | 73 73 20 53 48 49 46 54 |d to pre|ss SHIFT|
|00000b80| 20 74 6f 20 73 65 65 0a | 74 68 65 20 6e 65 78 74 | to see.|the next|
|00000b90| 20 77 68 6f 6c 65 20 6c | 69 73 74 2e 20 28 54 69 | whole l|ist. (Ti|
|00000ba0| 70 20 2d 20 68 6f 6c 64 | 20 64 6f 77 6e 20 43 54 |p - hold| down CT|
|00000bb0| 52 4c 20 6f 74 68 65 72 | 77 69 73 65 20 69 74 20 |RL other|wise it |
|00000bc0| 77 69 6c 6c 20 7a 6f 6f | 6d 20 70 61 73 74 0a 74 |will zoo|m past.t|
|00000bd0| 6f 6f 20 71 75 69 63 6b | 6c 79 29 2e 0a 0a 49 66 |oo quick|ly)...If|
|00000be0| 20 79 6f 75 20 65 78 74 | 65 6e 64 20 74 68 65 20 | you ext|end the |
|00000bf0| 79 65 61 72 73 20 62 65 | 66 6f 72 65 20 31 39 30 |years be|fore 190|
|00000c00| 30 20 6f 72 20 61 66 74 | 65 72 20 31 39 39 39 20 |0 or aft|er 1999 |
|00000c10| 65 76 65 72 79 74 68 69 | 6e 67 20 73 68 6f 75 6c |everythi|ng shoul|
|00000c20| 64 0a 73 74 69 6c 6c 20 | 77 6f 72 6b 20 4f 4b 2c |d.still |work OK,|
|00000c30| 20 62 75 74 20 62 65 77 | 61 72 65 20 6f 66 20 75 | but bew|are of u|
|00000c40| 73 69 6e 67 20 6a 75 73 | 74 20 74 68 65 20 64 65 |sing jus|t the de|
|00000c50| 63 61 64 65 73 20 69 6e | 73 74 65 61 64 20 6f 66 |cades in|stead of|
|00000c60| 20 74 68 65 20 66 75 6c | 6c 0a 79 65 61 72 2e 20 | the ful|l.year. |
|00000c70| 49 66 20 79 6f 75 20 65 | 6e 74 65 72 20 27 33 35 |If you e|nter '35|
|00000c80| 27 20 61 73 20 61 20 79 | 65 61 72 20 69 74 20 77 |' as a y|ear it w|
|00000c90| 69 6c 6c 20 61 6c 77 61 | 79 73 20 62 65 20 69 6e |ill alwa|ys be in|
|00000ca0| 74 65 72 70 72 65 74 74 | 65 64 20 61 73 0a 31 39 |terprett|ed as.19|
|00000cb0| 33 35 2c 20 6e 6f 20 6d | 61 74 74 65 72 20 77 68 |35, no m|atter wh|
|00000cc0| 61 74 20 73 74 61 72 74 | 20 61 6e 64 20 65 6e 64 |at start| and end|
|00000cd0| 20 79 65 61 72 73 20 79 | 6f 75 20 68 61 76 65 20 | years y|ou have |
|00000ce0| 75 73 65 64 20 66 6f 72 | 20 79 6f 75 72 20 64 61 |used for| your da|
|00000cf0| 74 61 2e 0a 0a 20 20 20 | 20 44 61 76 69 64 20 48 |ta... | David H|
|00000d00| 6f 6c 64 65 6e 20 2d 20 | 41 72 63 68 69 6d 65 64 |olden - |Archimed|
|00000d10| 65 73 20 50 75 62 6c 69 | 63 20 44 6f 6d 61 69 6e |es Publi|c Domain|
|00000d20| 20 4c 69 62 72 61 72 79 | 20 2d 20 4d 61 72 63 68 | Library| - March|
|00000d30| 20 31 39 39 35 0a 0a 46 | 69 6c 65 44 61 74 61 82 | 1995..F|ileData.|
|00000d40| 21 52 75 6e 00 00 00 00 | 76 d3 00 52 00 00 00 45 |!Run....|v..R...E|
|00000d50| eb ff ff 50 ea 61 f9 03 | 00 6c 64 53 65 74 20 52 |...P.a..|.ldSet R|
|00000d60| 50 49 69 6e 64 65 78 24 | 44 69 72 20 3c 4f 62 65 |PIindex$|Dir <Obe|
|00000d70| 79 24 44 69 72 3e 0a 57 | 69 6d 70 73 6c 6f 74 20 |y$Dir>.W|impslot |
|00000d80| 2d 6d 69 6e 20 31 36 6b | 20 2d 6d 61 78 20 31 36 |-min 16k| -max 16|
|00000d90| 6b 0a 52 75 6e 20 3c 52 | 50 49 69 6e 64 65 78 24 |k.Run <R|PIindex$|
|00000da0| 44 69 72 3e 2e 52 50 49 | 69 6e 64 65 78 46 69 6c |Dir>.RPI|indexFil|
|00000db0| 65 44 61 74 61 82 21 73 | 70 72 69 74 65 73 00 d3 |eData.!s|prites..|
|00000dc0| 00 e0 02 00 00 42 f9 ff | ff 26 40 47 a1 03 00 d8 |.....B..|.&@G....|
|00000dd0| a2 01 00 00 00 10 00 00 | 00 e4 02 00 00 d4 02 00 |........|........|
|00000de0| 00 21 72 70 69 00 00 00 | 00 00 00 00 00 04 00 00 |.!rpi...|........|
|00000df0| 00 10 00 00 00 00 00 00 | 00 07 00 00 00 2c 00 00 |........|.....,..|
|00000e00| 00 80 01 00 00 0c 00 00 | 00 99 99 99 99 99 99 99 |........|........|
|00000e10| 99 99 99 99 99 99 99 99 | 99 99 00 00 00 99 b9 bb |........|........|
|00000e20| bb 99 b9 bb bb 99 b9 bb | bb 9b 99 99 99 99 00 00 |........|........|
|00000e30| 00 99 b9 9b b9 9b b9 9b | b9 9b 99 b9 9b 99 99 99 |........|........|
|00000e40| 99 99 00 00 00 99 b9 9b | b9 9b b9 9b b9 9b 99 b9 |........|........|
|00000e50| 9b 99 99 99 99 99 00 00 | 00 99 b9 bb bb 99 b9 bb |........|........|
|00000e60| bb 99 99 b9 9b 99 99 99 | 99 99 00 00 00 99 b9 9b |........|........|
|00000e70| bb 99 b9 9b 99 99 99 b9 | 9b 99 99 99 99 99 00 00 |........|........|
|00000e80| 00 99 b9 9b b9 9b b9 9b | 99 99 99 b9 9b 99 99 99 |........|........|
|00000e90| 99 99 00 00 00 99 b9 9b | b9 9b b9 9b 99 99 b9 bb |........|........|
|00000ea0| bb 9b 99 99 99 99 00 00 | 00 99 99 99 99 99 99 99 |........|........|
|00000eb0| 99 99 99 99 99 99 99 99 | 99 99 00 00 00 99 99 99 |........|........|
|00000ec0| 99 99 99 99 99 99 99 99 | 99 99 a9 aa 99 99 00 00 |........|........|
|00000ed0| 00 99 99 99 99 99 99 99 | 99 99 99 99 99 99 aa a9 |........|........|
|00000ee0| 9a 99 00 00 00 99 99 99 | 99 99 99 99 99 99 99 99 |........|........|
|00000ef0| 99 99 aa 99 99 99 00 00 | 00 99 99 99 99 99 99 99 |........|........|
|00000f00| 99 99 99 99 99 a9 aa aa | 99 99 00 00 00 99 99 99 |........|........|
|00000f10| 99 99 99 99 99 99 99 99 | 99 99 aa 99 99 99 00 00 |........|........|
|00000f20| 00 99 99 99 99 99 99 99 | 99 99 99 99 99 99 aa 99 |........|........|
|00000f30| 99 99 00 00 00 99 99 99 | 99 99 99 99 99 99 99 99 |........|........|
|00000f40| 99 a9 aa aa 9a 99 00 00 | 00 99 99 99 99 99 99 99 |........|........|
|00000f50| 99 99 99 99 99 99 99 99 | 99 99 00 00 00 ff ff ff |........|........|
|00000f60| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000f70| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000f80| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000f90| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000fa0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000fb0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000fc0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000fd0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000fe0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000ff0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001000| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001010| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001020| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001030| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001040| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001050| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001060| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001070| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001080| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001090| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000010a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000010b0| ff 46 69 6c 65 44 61 74 | 61 82 49 6e 64 65 78 00 |.FileDat|a.Index.|
|000010c0| 00 00 76 d3 00 a9 01 00 | 00 45 ff ff ff 9d 2a 67 |..v.....|.E....*g|
|000010d0| f9 03 00 df 51 31 39 32 | 35 0a 36 2e 33 34 0a 36 |....Q192|5.6.34.6|
|000010e0| 2e 32 32 0a 36 2e 30 35 | 0a 35 2e 39 38 0a 35 2e |.22.6.05|.5.98.5.|
|000010f0| 39 32 0a 35 2e 37 30 20 | 20 20 20 31 39 33 30 0a |92.5.70 | 1930.|
|00001100| 35 2e 33 33 0a 35 2e 31 | 39 0a 35 2e 30 35 0a 35 |5.33.5.1|9.5.05.5|
|00001110| 2e 31 30 0a 35 2e 31 35 | 0a 35 2e 33 0a 35 2e 35 |.10.5.15|.5.3.5.5|
|00001120| 37 0a 35 2e 36 34 0a 35 | 2e 37 31 0a 36 2e 36 34 |7.5.64.5|.71.6.64|
|00001130| 20 20 20 20 31 39 34 30 | 0a 37 2e 31 38 0a 37 2e | 1940|.7.18.7.|
|00001140| 32 32 0a 37 2e 31 38 0a | 37 2e 32 35 0a 37 2e 33 |22.7.18.|7.25.7.3|
|00001150| 34 0a 37 2e 33 35 0a 37 | 2e 34 30 0a 37 2e 39 30 |4.7.35.7|.40.7.90|
|00001160| 0a 38 2e 31 32 0a 38 2e | 33 37 20 20 20 20 31 39 |.8.12.8.|37 19|
|00001170| 35 30 0a 39 2e 31 33 0a | 39 2e 39 37 0a 31 30 2e |50.9.13.|9.97.10.|
|00001180| 32 38 0a 31 30 2e 34 37 | 0a 31 30 2e 39 34 0a 31 |28.10.47|.10.94.1|
|00001190| 31 2e 34 38 0a 31 31 2e | 39 0a 31 32 2e 32 36 0a |1.48.11.|9.12.26.|
|000011a0| 31 32 2e 33 33 0a 31 32 | 2e 34 35 20 20 20 31 39 |12.33.12|.45 19|
|000011b0| 36 30 0a 31 32 2e 38 38 | 0a 31 33 2e 34 32 0a 31 |60.12.88|.13.42.1|
|000011c0| 33 2e 36 39 0a 31 34 2e | 31 34 0a 31 34 2e 38 32 |3.69.14.|14.14.82|
|000011d0| 0a 31 35 2e 34 0a 31 35 | 2e 37 38 0a 31 36 2e 35 |.15.4.15|.78.16.5|
|000011e0| 32 0a 31 37 2e 34 32 0a | 31 38 2e 35 33 20 20 20 |2.17.42.|18.53 |
|000011f0| 31 39 37 30 0a 32 30 2e | 32 38 0a 32 31 2e 37 31 |1970.20.|28.21.71|
|00001200| 0a 32 33 2e 37 31 0a 32 | 37 2e 35 31 0a 33 34 2e |.23.71.2|7.51.34.|
|00001210| 31 37 0a 33 39 2e 38 33 | 0a 34 36 2e 31 34 0a 34 |17.39.83|.46.14.4|
|00001220| 39 2e 39 36 0a 35 36 2e | 36 36 0a 36 36 2e 38 34 |9.96.56.|66.66.84|
|00001230| 20 20 20 31 39 38 30 0a | 37 34 2e 37 38 0a 38 31 | 1980.|74.78.81|
|00001240| 2e 32 31 0a 38 34 2e 39 | 35 0a 38 39 2e 31 36 0a |.21.84.9|5.89.16.|
|00001250| 39 34 2e 35 39 0a 39 37 | 2e 38 32 0a 31 30 31 2e |94.59.97|.82.101.|
|00001260| 38 38 0a 31 30 36 2e 38 | 38 0a 31 31 35 2e 32 31 |88.106.8|8.115.21|
|00001270| 0a 31 32 35 2e 31 20 20 | 20 31 39 39 30 0a 46 69 |.125.1 | 1990.Fi|
|00001280| 6c 65 44 61 74 61 82 4f | 72 69 67 00 00 00 00 76 |leData.O|rig....v|
|00001290| d3 00 d3 07 00 00 42 fb | ff ff ce 0b c8 c7 03 00 |......B.|........|
|000012a0| 3e b0 0d 00 0a 1f 20 f4 | 20 3e 20 3c 57 69 6d 70 |>..... .| > <Wimp|
|000012b0| 53 79 73 24 44 69 72 3e | 2e 52 50 49 49 4e 44 45 |Sys$Dir>|.RPIINDE|
|000012c0| 58 0d 00 14 21 20 f4 20 | 43 6f 70 79 72 69 67 68 |X...! . |Copyrigh|
|000012d0| 74 20 45 2e 46 2e 4c 6f | 72 64 20 32 33 2f 39 2f |t E.F.Lo|rd 23/9/|
|000012e0| 39 30 0d 00 1e 09 20 eb | 20 31 31 0d 00 28 11 20 |90.... .| 11..(. |
|000012f0| 40 25 3d 26 30 30 30 32 | 30 32 30 41 0d 00 32 0c |@%=&0002|020A..2.|
|00001300| 20 ee 85 e5 8d 74 42 40 | 0d 00 3c 0d 20 de 72 70 | ....tB@|..<. .rp|
|00001310| 69 28 37 30 29 0d 00 46 | 0a 20 69 6e 66 3d 35 0d |i(70)..F|. inf=5.|
|00001320| 00 50 20 20 e3 78 3d 30 | b8 36 35 3a f3 69 6e 64 |.P .x=0|.65:.ind|
|00001330| 78 3a 72 70 69 28 78 29 | 3d 69 6e 64 78 3a ed 0d |x:rpi(x)|=indx:..|
|00001340| 00 5a 06 20 f5 0d 00 64 | 0e 20 f2 71 75 65 73 74 |.Z. ...d|. .quest|
|00001350| 69 6f 6e 0d 00 6e 0c 20 | f2 61 6e 73 77 65 72 0d |ion..n. |.answer.|
|00001360| 00 78 07 20 fd a3 0d 00 | 82 1f 20 e7 9f 3c 3e 31 |.x. ....|.. ..<>1|
|00001370| 37 3a ee 85 87 3a f6 3a | f1 22 20 40 20 6c 69 6e |7:...:.:|." @ lin|
|00001380| 65 20 22 3b 9e 0d 00 8c | 06 20 e0 0d 00 96 9d 20 |e ";....|. ..... |
|00001390| dc 20 36 2e 33 34 2c 36 | 2e 32 32 2c 36 2e 30 35 |. 6.34,6|.22,6.05|
|000013a0| 2c 35 2e 39 38 2c 35 2e | 39 32 2c 35 2e 37 30 2c |,5.98,5.|92,5.70,|
|000013b0| 35 2e 33 33 2c 35 2e 31 | 39 2c 35 2e 30 35 2c 35 |5.33,5.1|9,5.05,5|
|000013c0| 2e 31 30 2c 35 2e 31 35 | 2c 35 2e 33 2c 35 2e 35 |.10,5.15|,5.3,5.5|
|000013d0| 37 2c 35 2e 36 34 2c 35 | 2e 37 31 2c 36 2e 36 34 |7,5.64,5|.71,6.64|
|000013e0| 2c 37 2e 31 38 2c 37 2e | 32 32 2c 37 2e 31 38 2c |,7.18,7.|22,7.18,|
|000013f0| 37 2e 32 35 2c 37 2e 33 | 34 2c 37 2e 33 35 2c 37 |7.25,7.3|4,7.35,7|
|00001400| 2e 34 30 2c 37 2e 39 30 | 2c 38 2e 31 32 2c 38 2e |.40,7.90|,8.12,8.|
|00001410| 33 37 2c 39 2e 31 33 2c | 39 2e 39 37 2c 31 30 2e |37,9.13,|9.97,10.|
|00001420| 32 38 2c 31 30 2e 34 37 | 0d 00 a0 b8 20 dc 20 31 |28,10.47|.... . 1|
|00001430| 30 2e 39 34 2c 31 31 2e | 34 38 2c 31 31 2e 39 2c |0.94,11.|48,11.9,|
|00001440| 31 32 2e 32 36 2c 31 32 | 2e 33 33 2c 31 32 2e 34 |12.26,12|.33,12.4|
|00001450| 35 2c 31 32 2e 38 38 2c | 31 33 2e 34 32 2c 31 33 |5,12.88,|13.42,13|
|00001460| 2e 36 39 2c 31 34 2e 31 | 34 2c 31 34 2e 38 32 2c |.69,14.1|4,14.82,|
|00001470| 31 35 2e 34 2c 31 35 2e | 37 38 2c 31 36 2e 35 32 |15.4,15.|78,16.52|
|00001480| 2c 31 37 2e 34 32 2c 31 | 38 2e 35 33 2c 32 30 2e |,17.42,1|8.53,20.|
|00001490| 32 38 2c 32 31 2e 37 31 | 2c 32 33 2e 37 31 2c 32 |28,21.71|,23.71,2|
|000014a0| 37 2e 35 31 2c 33 34 2e | 31 37 2c 33 39 2e 38 33 |7.51,34.|17,39.83|
|000014b0| 2c 34 36 2e 31 34 2c 34 | 39 2e 39 36 2c 35 36 2e |,46.14,4|9.96,56.|
|000014c0| 36 36 2c 36 36 2e 38 34 | 2c 37 34 2e 37 38 2c 38 |66,66.84|,74.78,8|
|000014d0| 31 2e 32 31 2c 38 34 2e | 39 35 2c 38 39 2e 31 36 |1.21,84.|95,89.16|
|000014e0| 0d 00 aa 2d 20 dc 20 39 | 34 2e 35 39 2c 39 37 2e |...- . 9|4.59,97.|
|000014f0| 38 32 2c 31 30 31 2e 38 | 38 2c 31 30 36 2e 38 38 |82,101.8|8,106.88|
|00001500| 2c 31 31 35 2e 32 31 2c | 31 32 35 2e 31 0d 00 b4 |,115.21,|125.1...|
|00001510| 05 3a 0d 00 be 0f 20 dd | f2 71 75 65 73 74 69 6f |.:.... .|.questio|
|00001520| 6e 0d 00 c8 0d 20 db 3a | f2 74 69 74 6c 65 0d 00 |n.... .:|.title..|
|00001530| d2 08 20 79 3d 36 0d 00 | dc 06 20 f5 0d 00 e6 2f |.. y=6..|.. ..../|
|00001540| 20 e8 8a 30 2c 79 29 22 | 45 6e 74 65 72 20 31 73 | ..0,y)"|Enter 1s|
|00001550| 74 20 79 65 61 72 20 66 | 6f 72 20 63 6f 6d 70 61 |t year f|or compa|
|00001560| 72 69 73 6f 6e 20 22 79 | 65 61 72 0d 00 f0 0d 20 |rison "y|ear.... |
|00001570| fd a4 64 61 74 65 6f 6b | 0d 00 fa 13 20 64 61 74 |..dateok|.... dat|
|00001580| 65 31 24 3d c3 28 79 65 | 61 72 29 0d 01 04 2d 20 |e1$=.(ye|ar)...- |
|00001590| f1 8a 30 2c 79 2b 32 29 | 22 45 6e 74 65 72 20 63 |..0,y+2)|"Enter c|
|000015a0| 6f 73 74 20 6f 66 20 69 | 74 65 6d 20 69 6e 20 22 |ost of i|tem in "|
|000015b0| 3b 64 61 74 65 31 24 3b | 0d 01 0e 11 20 e8 22 20 |;date1$;|.... ." |
|000015c0| a3 20 22 70 72 69 63 65 | 31 0d 01 18 04 0d 01 22 |. "price|1......"|
|000015d0| 09 20 79 3d 31 30 0d 01 | 2c 06 20 f5 0d 01 36 2f |. y=10..|,. ...6/|
|000015e0| 20 e8 8a 30 2c 79 29 22 | 45 6e 74 65 72 20 32 6e | ..0,y)"|Enter 2n|
|000015f0| 64 20 79 65 61 72 20 66 | 6f 72 20 63 6f 6d 70 61 |d year f|or compa|
|00001600| 72 69 73 6f 6e 20 22 79 | 65 61 72 0d 01 40 0d 20 |rison "y|ear..@. |
|00001610| fd a4 64 61 74 65 6f 6b | 0d 01 4a 13 20 64 61 74 |..dateok|..J. dat|
|00001620| 65 32 24 3d c3 28 79 65 | 61 72 29 0d 01 54 06 20 |e2$=.(ye|ar)..T. |
|00001630| e1 0d 01 5e 06 20 3a 0d | 01 68 0d 20 dd a4 64 61 |...^. :.|.h. ..da|
|00001640| 74 65 6f 6b 0d 01 72 1d | 20 e7 79 65 61 72 3c 31 |teok..r.| .year<1|
|00001650| 30 30 8c 79 65 61 72 3d | 31 39 30 30 2b 79 65 61 |00.year=|1900+yea|
|00001660| 72 0d 01 7c 35 20 e7 20 | 79 65 61 72 3c 31 39 32 |r..|5 . |year<192|
|00001670| 35 20 84 20 79 65 61 72 | 3e 31 39 39 30 20 8c 20 |5 . year|>1990 . |
|00001680| f1 8a 30 2c 79 29 c4 34 | 30 2c 22 20 22 29 3a 3d |..0,y).4|0," "):=|
|00001690| a3 20 8b 20 3d b9 0d 01 | 86 06 20 3a 0d 01 90 0d |. . =...|.. :....|
|000016a0| 20 dd f2 61 6e 73 77 65 | 72 0d 01 9a 0d 20 db 3a | ..answe|r.... .:|
|000016b0| f2 74 69 74 6c 65 0d 01 | a4 20 20 79 72 31 3d bb |.title..|. yr1=.|
|000016c0| 28 64 61 74 65 31 24 29 | 3a 79 72 32 3d bb 28 64 |(date1$)|:yr2=.(d|
|000016d0| 61 74 65 32 24 29 0d 01 | ae 2a 20 72 70 69 31 3d |ate2$)..|.* rpi1=|
|000016e0| 72 70 69 28 79 72 31 2d | 31 39 32 35 29 3a 72 70 |rpi(yr1-|1925):rp|
|000016f0| 69 32 3d 72 70 69 28 79 | 72 32 2d 31 39 32 35 29 |i2=rpi(y|r2-1925)|
|00001700| 0d 01 b8 1c 20 70 72 69 | 63 65 32 3d 70 72 69 63 |.... pri|ce2=pric|
|00001710| 65 31 2a 72 70 69 32 2f | 72 70 69 31 0d 01 c2 15 |e1*rpi2/|rpi1....|
|00001720| 20 65 6c 61 70 73 3d 94 | 28 79 72 32 2d 79 72 31 | elaps=.|(yr2-yr1|
|00001730| 29 0d 01 cc 15 20 e7 65 | 6c 61 70 73 3d 30 8c 65 |).... .e|laps=0.e|
|00001740| 6c 61 70 73 3d 31 0d 01 | d6 1d 20 61 76 72 70 69 |laps=1..|.. avrpi|
|00001750| 3d 94 28 72 70 69 32 2d | 72 70 69 31 29 2f 65 6c |=.(rpi2-|rpi1)/el|
|00001760| 61 70 73 0d 01 e0 2b 20 | e7 79 72 31 3c 79 72 32 |aps...+ |.yr1<yr2|
|00001770| 20 8c 6b 3d 28 72 70 69 | 32 2f 72 70 69 31 29 20 | .k=(rpi|2/rpi1) |
|00001780| 8b 6b 3d 28 72 70 69 31 | 2f 72 70 69 32 29 0d 01 |.k=(rpi1|/rpi2)..|
|00001790| ea 1e 20 69 3d 28 31 30 | 5e 28 ab 28 6b 29 2f 65 |.. i=(10|^(.(k)/e|
|000017a0| 6c 61 70 73 29 2d 31 29 | 2a 31 30 30 0d 01 f4 3f |laps)-1)|*100...?|
|000017b0| 20 f1 8a 30 2c 36 29 22 | 41 76 65 72 61 67 65 20 | ..0,6)"|Average |
|000017c0| 52 65 74 61 69 6c 20 50 | 72 69 63 65 20 49 6e 64 |Retail P|rice Ind|
|000017d0| 65 78 20 66 6f 72 20 22 | 3b 64 61 74 65 31 24 3b |ex for "|;date1$;|
|000017e0| 22 20 69 73 20 22 2c 72 | 70 69 31 0d 01 fe 3f 20 |" is ",r|pi1...? |
|000017f0| f1 8a 30 2c 37 29 22 41 | 76 65 72 61 67 65 20 52 |..0,7)"A|verage R|
|00001800| 65 74 61 69 6c 20 50 72 | 69 63 65 20 49 6e 64 65 |etail Pr|ice Inde|
|00001810| 78 20 66 6f 72 20 22 3b | 64 61 74 65 32 24 3b 22 |x for ";|date2$;"|
|00001820| 20 69 73 20 22 2c 72 70 | 69 32 0d 02 08 30 20 f1 | is ",rp|i2...0 .|
|00001830| 8a 30 2c 39 29 20 22 52 | 50 49 20 20 69 6e 64 65 |.0,9) "R|PI inde|
|00001840| 78 20 20 6d 75 6c 74 69 | 70 6c 69 65 72 20 20 69 |x multi|plier i|
|00001850| 73 20 20 20 20 20 20 22 | 2c 6b 0d 02 12 32 20 f1 |s "|,k...2 .|
|00001860| 8a 30 2c 31 30 29 22 49 | 6e 76 65 72 73 65 20 52 |.0,10)"I|nverse R|
|00001870| 50 49 20 69 6e 64 65 78 | 20 6d 75 6c 74 69 70 6c |PI index| multipl|
|00001880| 69 65 72 20 69 73 20 22 | 2c 31 2f 6b 0d 02 1c 3e |ier is "|,1/k...>|
|00001890| 20 f1 8a 30 2c 31 32 29 | 22 41 76 65 72 61 67 65 | ..0,12)|"Average|
|000018a0| 20 63 68 61 6e 67 65 20 | 69 6e 20 52 50 49 20 70 | change |in RPI p|
|000018b0| 65 72 20 61 6e 6e 75 6d | 20 69 73 20 22 2c 61 76 |er annum| is ",av|
|000018c0| 72 70 69 3b 22 20 70 74 | 73 22 0d 02 26 38 20 f1 |rpi;" pt|s"..&8 .|
|000018d0| 8a 30 2c 31 33 29 22 41 | 76 65 72 61 67 65 20 20 |.0,13)"A|verage |
|000018e0| 72 61 74 65 20 20 6f 66 | 20 20 69 6e 66 6c 61 74 |rate of| inflat|
|000018f0| 69 6f 6e 20 20 20 20 20 | 20 20 22 2c 69 3b 22 20 |ion | ",i;" |
|00001900| 25 22 0d 02 30 43 20 f1 | 8a 30 2c 31 35 29 22 49 |%"..0C .|.0,15)"I|
|00001910| 6e 20 20 22 3b 64 61 74 | 65 31 24 3b 22 20 20 74 |n ";dat|e1$;" t|
|00001920| 68 65 20 20 73 75 6d 20 | 20 67 69 76 65 6e 20 20 |he sum | given |
|00001930| 77 61 73 20 20 20 20 20 | 20 20 a3 20 20 22 2c 70 |was | . ",p|
|00001940| 72 69 63 65 31 0d 02 3a | 43 20 f1 8a 30 2c 31 37 |rice1..:|C ..0,17|
|00001950| 29 22 67 69 76 69 6e 67 | 20 61 6e 20 65 71 75 69 |)"giving| an equi|
|00001960| 76 61 6c 65 6e 74 20 76 | 61 6c 75 65 20 69 6e 20 |valent v|alue in |
|00001970| 22 3b 64 61 74 65 32 24 | 3b 22 20 6f 66 20 a3 20 |";date2$|;" of . |
|00001980| 22 2c 70 72 69 63 65 32 | 0d 02 44 27 20 f1 8a 30 |",price2|..D' ..0|
|00001990| 2c 32 32 29 22 50 72 65 | 73 73 20 52 45 54 55 52 |,22)"Pre|ss RETUR|
|000019a0| 4e 20 74 6f 20 63 6f 6e | 74 69 6e 75 65 22 3b 0d |N to con|tinue";.|
|000019b0| 02 4e 0c 20 f5 3a fd a5 | 3d 31 33 0d 02 58 06 20 |.N. .:..|=13..X. |
|000019c0| e1 0d 02 62 06 20 3a 0d | 02 6c 0c 20 dd f2 74 69 |...b. :.|.l. ..ti|
|000019d0| 74 6c 65 0d 02 76 08 20 | ef 20 35 0d 02 80 17 20 |tle..v. |. 5.... |
|000019e0| c8 93 20 31 30 2c 38 32 | 30 2c 31 32 36 30 2c 31 |.. 10,82|0,1260,1|
|000019f0| 36 30 0d 02 8a 18 20 ef | 20 32 33 2c 31 37 2c 37 |60.... .| 23,17,7|
|00001a00| 2c 36 2c 38 3b 31 36 3b | 30 3b 0d 02 94 0e 20 ec |,6,8;16;|0;.... .|
|00001a10| 20 34 32 30 2c 39 32 30 | 0d 02 9e 24 20 f1 22 55 | 420,920|...$ ."U|
|00001a20| 4b 20 52 45 54 41 49 4c | 20 50 52 49 43 45 53 20 |K RETAIL| PRICES |
|00001a30| 31 39 32 35 20 2d 20 31 | 39 39 30 22 0d 02 a8 25 |1925 - 1|990"...%|
|00001a40| 20 f4 20 50 52 49 4e 54 | 54 41 42 28 31 33 2c 33 | . PRINT|TAB(13,3|
|00001a50| 29 22 28 52 65 62 61 73 | 65 64 20 31 39 38 37 29 |)"(Rebas|ed 1987)|
|00001a60| 22 0d 02 b2 04 0d 02 bc | 08 20 ef 20 34 0d 02 c6 |".......|. . 4...|
|00001a70| 06 20 e1 0d ff 46 69 6c | 65 44 61 74 61 82 52 50 |. ...Fil|eData.RP|
|00001a80| 49 69 6e 64 65 78 00 d3 | 00 68 09 00 00 45 fb ff |Iindex..|.h...E..|
|00001a90| ff 45 e2 67 f9 03 00 14 | c6 0d 00 01 10 f4 20 3e |.E.g....|...... >|
|00001aa0| 20 52 50 49 69 6e 64 65 | 78 0d 00 02 20 f4 20 43 | RPIinde|x... . C|
|00001ab0| 6f 70 79 72 69 67 68 74 | 20 45 2e 46 2e 4c 6f 72 |opyright| E.F.Lor|
|00001ac0| 64 20 32 33 2f 39 2f 39 | 30 0d 00 03 47 f4 20 4d |d 23/9/9|0...G. M|
|00001ad0| 6f 64 69 66 69 65 64 20 | 62 79 20 44 61 76 69 64 |odified |by David|
|00001ae0| 20 48 6f 6c 64 65 6e 20 | 74 6f 20 74 61 6b 65 20 | Holden |to take |
|00001af0| 52 50 49 20 66 72 6f 6d | 20 65 78 74 65 72 6e 61 |RPI from| externa|
|00001b00| 6c 20 6c 69 73 74 20 4d | 61 72 63 68 20 27 39 35 |l list M|arch '95|
|00001b10| 0d 00 04 04 0d 00 05 1f | e7 20 a6 28 2d 33 29 20 |........|. .(-3) |
|00001b20| 64 65 62 75 67 25 3d b9 | 20 8b 20 64 65 62 75 67 |debug%=.| . debug|
|00001b30| 25 3d a3 0d 00 06 09 f2 | 69 6e 69 74 0d 00 07 08 |%=......|init....|
|00001b40| eb 20 31 31 0d 00 08 0c | ee 85 f2 65 72 72 6f 72 |. 11....|...error|
|00001b50| 0d 00 09 13 e7 20 64 65 | 62 75 67 25 20 f2 64 65 |..... de|bug% .de|
|00001b60| 62 75 67 0d 00 0a 05 f5 | 0d 00 0b 0e 20 f2 71 75 |bug.....|.... .qu|
|00001b70| 65 73 74 69 6f 6e 0d 00 | 0c 0c 20 f2 61 6e 73 77 |estion..|.. .answ|
|00001b80| 65 72 0d 00 0d 07 fd 20 | a3 0d 00 0e 05 e0 0d 00 |er..... |........|
|00001b90| 0f 04 0d 00 10 0a dd f2 | 69 6e 69 74 0d 00 11 10 |........|init....|
|00001ba0| 40 25 3d 26 30 30 30 32 | 30 32 30 41 0d 00 12 0e |@%=&0002|020A....|
|00001bb0| de 20 72 70 69 28 31 30 | 30 29 0d 00 13 09 69 6e |. rpi(10|0)....in|
|00001bc0| 66 3d 35 0d 00 14 37 c8 | 99 22 58 4f 53 5f 46 69 |f=5...7.|."XOS_Fi|
|00001bd0| 6c 65 22 2c 31 37 2c 22 | 3c 52 50 49 69 6e 64 65 |le",17,"|<RPIinde|
|00001be0| 78 24 44 69 72 3e 2e 69 | 6e 64 65 78 22 20 b8 20 |x$Dir>.i|ndex" . |
|00001bf0| 4f 25 2c 2c 2c 2c 6c 65 | 6e 25 0d 00 15 3e e7 20 |O%,,,,le|n%...>. |
|00001c00| 4f 25 3c 3e 31 20 85 a2 | 20 30 2c 22 43 61 6e 27 |O%<>1 ..| 0,"Can'|
|00001c10| 74 20 66 69 6e 64 20 49 | 6e 64 65 78 20 66 69 6c |t find I|ndex fil|
|00001c20| 65 2c 20 75 6e 61 62 6c | 65 20 74 6f 20 63 6f 6e |e, unabl|e to con|
|00001c30| 74 69 6e 75 65 22 3a e0 | 0d 00 16 13 de 20 62 75 |tinue":.|..... bu|
|00001c40| 66 66 25 20 6c 65 6e 25 | 2b 31 36 0d 00 17 31 c8 |ff% len%|+16...1.|
|00001c50| 99 22 4f 53 5f 46 69 6c | 65 22 2c 31 36 2c 22 3c |."OS_Fil|e",16,"<|
|00001c60| 52 50 49 69 6e 64 65 78 | 24 44 69 72 3e 2e 69 6e |RPIindex|$Dir>.in|
|00001c70| 64 65 78 22 2c 62 75 66 | 66 25 2c 30 0d 00 18 22 |dex",buf|f%,0..."|
|00001c80| 62 75 66 66 25 21 6c 65 | 6e 25 3d 26 30 44 30 44 |buff%!le|n%=&0D0D|
|00001c90| 30 44 30 44 3a 49 25 3d | 62 75 66 66 25 3a 0d 00 |0D0D:I%=|buff%:..|
|00001ca0| 19 14 c8 95 20 49 25 3c | 62 75 66 66 25 2b 6c 65 |.... I%<|buff%+le|
|00001cb0| 6e 25 0d 00 1a 16 20 e7 | 20 3f 49 25 3d 31 30 20 |n%.... .| ?I%=10 |
|00001cc0| 8c 20 3f 49 25 3d 31 33 | 0d 00 1b 09 49 25 2b 3d |. ?I%=13|....I%+=|
|00001cd0| 31 0d 00 1c 05 ce 0d 00 | 1d 11 49 25 3d 62 75 66 |1.......|..I%=buf|
|00001ce0| 66 25 3a 4a 25 3d 30 0d | 00 1e 14 6d 69 6e 5f 79 |f%:J%=0.|...min_y|
|00001cf0| 65 61 72 25 3d bb 28 24 | 49 25 29 0d 00 1f 1b c8 |ear%=.($|I%).....|
|00001d00| 95 3f 49 25 3c 3e 31 33 | 3a 49 25 2b 3d 31 3a ce |.?I%<>13|:I%+=1:.|
|00001d10| 3a 49 25 2b 3d 31 0d 00 | 20 05 f5 0d 00 21 19 20 |:I%+=1..| ....!. |
|00001d20| 72 70 69 28 4a 25 29 3d | bb 28 24 49 25 29 3a 4a |rpi(J%)=|.($I%):J|
|00001d30| 25 2b 3d 31 0d 00 22 1c | 20 c8 95 3f 49 25 3c 3e |%+=1..".| ..?I%<>|
|00001d40| 31 33 3a 49 25 2b 3d 31 | 3a ce 3a 49 25 2b 3d 31 |13:I%+=1|:.:I%+=1|
|00001d50| 0d 00 23 14 fd 20 49 25 | 3e 3d 62 75 66 66 25 2b |..#.. I%|>=buff%+|
|00001d60| 6c 65 6e 25 0d 00 24 1c | 6d 61 78 5f 79 65 61 72 |len%..$.|max_year|
|00001d70| 25 3d 6d 69 6e 5f 79 65 | 61 72 25 2d 31 2b 4a 25 |%=min_ye|ar%-1+J%|
|00001d80| 0d 00 25 05 e1 0d 00 26 | 04 0d 00 27 0b dd f2 64 |..%....&|...'...d|
|00001d90| 65 62 75 67 0d 00 28 07 | ef 31 34 0d 00 29 1e e3 |ebug..(.|.14..)..|
|00001da0| 20 49 25 3d 6d 69 6e 5f | 79 65 61 72 25 20 b8 20 | I%=min_|year% . |
|00001db0| 6d 61 78 5f 79 65 61 72 | 25 0d 00 2a 10 20 40 25 |max_year|%..*. @%|
|00001dc0| 3d 31 30 3a f1 20 49 25 | 3b 0d 00 2b 25 20 40 25 |=10:. I%|;..+% @%|
|00001dd0| 3d 26 30 30 30 32 30 32 | 30 41 3a f1 20 72 70 69 |=&000202|0A:. rpi|
|00001de0| 28 49 25 2d 6d 69 6e 5f | 79 65 61 72 25 29 0d 00 |(I%-min_|year%)..|
|00001df0| 2c 05 ed 0d 00 2d 32 ef | 31 35 3a f1 27 22 50 72 |,....-2.|15:.'"Pr|
|00001e00| 65 73 73 20 53 50 41 43 | 45 20 74 6f 20 63 6f 6e |ess SPAC|E to con|
|00001e10| 74 69 6e 75 65 22 3a f5 | 3a 4b 25 3d a5 3a fd 20 |tinue":.|:K%=.:. |
|00001e20| 4b 25 3d 33 32 0d 00 2e | 05 e1 0d 00 2f 04 0d 00 |K%=32...|..../...|
|00001e30| 30 0b dd f2 65 72 72 6f | 72 0d 00 31 0c e7 20 9f |0...erro|r..1.. .|
|00001e40| 3d 31 37 3a e0 0d 00 32 | 33 ef 37 3a f6 3a f1 22 |=17:...2|3.7:.:."|
|00001e50| 20 40 20 6c 69 6e 65 20 | 22 3b 9e 3b 22 20 2d 20 | @ line |";.;" - |
|00001e60| 50 72 65 73 73 20 53 50 | 41 43 45 20 74 6f 20 63 |Press SP|ACE to c|
|00001e70| 6f 6e 74 69 6e 75 65 22 | 0d 00 33 12 f5 3a 4b 25 |ontinue"|..3..:K%|
|00001e80| 3d a5 3a fd 20 4b 25 3d | 33 32 0d 00 34 05 e1 0d |=.:. K%=|32..4...|
|00001e90| 00 35 04 0d 00 36 0e dd | f2 71 75 65 73 74 69 6f |.5...6..|.questio|
|00001ea0| 6e 0d 00 37 0c db 3a f2 | 74 69 74 6c 65 0d 00 38 |n..7..:.|title..8|
|00001eb0| 07 79 3d 36 0d 00 39 05 | f5 0d 00 3a 30 20 e8 8a |.y=6..9.|...:0 ..|
|00001ec0| 30 2c 79 29 22 45 6e 74 | 65 72 20 31 73 74 20 79 |0,y)"Ent|er 1st y|
|00001ed0| 65 61 72 20 66 6f 72 20 | 63 6f 6d 70 61 72 69 73 |ear for |comparis|
|00001ee0| 6f 6e 20 22 79 65 61 72 | 25 0d 00 3b 0d fd 20 a4 |on "year|%..;.. .|
|00001ef0| 64 61 74 65 6f 6b 0d 00 | 3c 13 64 61 74 65 31 24 |dateok..|<.date1$|
|00001f00| 3d c3 28 79 65 61 72 25 | 29 0d 00 3d 2c f1 8a 30 |=.(year%|)..=,..0|
|00001f10| 2c 79 2b 32 29 22 45 6e | 74 65 72 20 63 6f 73 74 |,y+2)"En|ter cost|
|00001f20| 20 6f 66 20 69 74 65 6d | 20 69 6e 20 22 3b 64 61 | of item| in ";da|
|00001f30| 74 65 31 24 3b 0d 00 3e | 10 e8 22 20 a3 20 22 70 |te1$;..>|.." . "p|
|00001f40| 72 69 63 65 31 0d 00 3f | 08 79 3d 31 30 0d 00 40 |rice1..?|.y=10..@|
|00001f50| 05 f5 0d 00 41 30 20 e8 | 8a 30 2c 79 29 22 45 6e |....A0 .|.0,y)"En|
|00001f60| 74 65 72 20 32 6e 64 20 | 79 65 61 72 20 66 6f 72 |ter 2nd |year for|
|00001f70| 20 63 6f 6d 70 61 72 69 | 73 6f 6e 20 22 79 65 61 | compari|son "yea|
|00001f80| 72 25 0d 00 42 0d fd 20 | a4 64 61 74 65 6f 6b 0d |r%..B.. |.dateok.|
|00001f90| 00 43 13 64 61 74 65 32 | 24 3d c3 28 79 65 61 72 |.C.date2|$=.(year|
|00001fa0| 25 29 0d 00 44 05 e1 0d | 00 45 04 0d 00 46 0c dd |%)..D...|.E...F..|
|00001fb0| a4 64 61 74 65 6f 6b 0d | 00 47 1b e7 20 79 65 61 |.dateok.|.G.. yea|
|00001fc0| 72 25 3c 31 30 30 20 79 | 65 61 72 25 2b 3d 31 39 |r%<100 y|ear%+=19|
|00001fd0| 30 30 0d 00 48 3e e7 20 | 28 79 65 61 72 25 3c 6d |00..H>. |(year%<m|
|00001fe0| 69 6e 5f 79 65 61 72 25 | 29 84 28 79 65 61 72 25 |in_year%|).(year%|
|00001ff0| 3e 6d 61 78 5f 79 65 61 | 72 25 29 3a ef 37 3a f1 |>max_yea|r%):.7:.|
|00002000| 8a 30 2c 79 29 c4 34 30 | 2c 22 20 22 29 3a 3d a3 |.0,y).40|," "):=.|
|00002010| 0d 00 49 06 3d b9 0d 00 | 4a 04 0d 00 4b 0c dd f2 |..I.=...|J...K...|
|00002020| 61 6e 73 77 65 72 0d 00 | 4c 0c db 3a f2 74 69 74 |answer..|L..:.tit|
|00002030| 6c 65 0d 00 4d 1f 79 72 | 31 3d bb 28 64 61 74 65 |le..M.yr|1=.(date|
|00002040| 31 24 29 3a 79 72 32 3d | bb 28 64 61 74 65 32 24 |1$):yr2=|.(date2$|
|00002050| 29 0d 00 4e 33 72 70 69 | 31 3d 72 70 69 28 79 72 |)..N3rpi|1=rpi(yr|
|00002060| 31 2d 6d 69 6e 5f 79 65 | 61 72 25 29 3a 72 70 69 |1-min_ye|ar%):rpi|
|00002070| 32 3d 72 70 69 28 79 72 | 32 2d 6d 69 6e 5f 79 65 |2=rpi(yr|2-min_ye|
|00002080| 61 72 25 29 0d 00 4f 1b | 70 72 69 63 65 32 3d 70 |ar%)..O.|price2=p|
|00002090| 72 69 63 65 31 2a 72 70 | 69 32 2f 72 70 69 31 0d |rice1*rp|i2/rpi1.|
|000020a0| 00 50 14 65 6c 61 70 73 | 3d 94 28 79 72 32 2d 79 |.P.elaps|=.(yr2-y|
|000020b0| 72 31 29 0d 00 51 14 e7 | 65 6c 61 70 73 3d 30 8c |r1)..Q..|elaps=0.|
|000020c0| 65 6c 61 70 73 3d 31 0d | 00 52 1c 61 76 72 70 69 |elaps=1.|.R.avrpi|
|000020d0| 3d 94 28 72 70 69 32 2d | 72 70 69 31 29 2f 65 6c |=.(rpi2-|rpi1)/el|
|000020e0| 61 70 73 0d 00 53 2a e7 | 79 72 31 3c 79 72 32 20 |aps..S*.|yr1<yr2 |
|000020f0| 8c 6b 3d 28 72 70 69 32 | 2f 72 70 69 31 29 20 8b |.k=(rpi2|/rpi1) .|
|00002100| 6b 3d 28 72 70 69 31 2f | 72 70 69 32 29 0d 00 54 |k=(rpi1/|rpi2)..T|
|00002110| 1d 69 3d 28 31 30 5e 28 | ab 28 6b 29 2f 65 6c 61 |.i=(10^(|.(k)/ela|
|00002120| 70 73 29 2d 31 29 2a 31 | 30 30 0d 00 55 3e f1 8a |ps)-1)*1|00..U>..|
|00002130| 30 2c 36 29 22 41 76 65 | 72 61 67 65 20 52 65 74 |0,6)"Ave|rage Ret|
|00002140| 61 69 6c 20 50 72 69 63 | 65 20 49 6e 64 65 78 20 |ail Pric|e Index |
|00002150| 66 6f 72 20 22 3b 64 61 | 74 65 31 24 3b 22 20 69 |for ";da|te1$;" i|
|00002160| 73 20 22 2c 72 70 69 31 | 0d 00 56 3e f1 8a 30 2c |s ",rpi1|..V>..0,|
|00002170| 37 29 22 41 76 65 72 61 | 67 65 20 52 65 74 61 69 |7)"Avera|ge Retai|
|00002180| 6c 20 50 72 69 63 65 20 | 49 6e 64 65 78 20 66 6f |l Price |Index fo|
|00002190| 72 20 22 3b 64 61 74 65 | 32 24 3b 22 20 69 73 20 |r ";date|2$;" is |
|000021a0| 22 2c 72 70 69 32 0d 00 | 57 2f f1 8a 30 2c 39 29 |",rpi2..|W/..0,9)|
|000021b0| 20 22 52 50 49 20 20 69 | 6e 64 65 78 20 20 6d 75 | "RPI i|ndex mu|
|000021c0| 6c 74 69 70 6c 69 65 72 | 20 20 69 73 20 20 20 20 |ltiplier| is |
|000021d0| 20 20 22 2c 6b 0d 00 58 | 31 f1 8a 30 2c 31 30 29 | ",k..X|1..0,10)|
|000021e0| 22 49 6e 76 65 72 73 65 | 20 52 50 49 20 69 6e 64 |"Inverse| RPI ind|
|000021f0| 65 78 20 6d 75 6c 74 69 | 70 6c 69 65 72 20 69 73 |ex multi|plier is|
|00002200| 20 22 2c 31 2f 6b 0d 00 | 59 3d f1 8a 30 2c 31 32 | ",1/k..|Y=..0,12|
|00002210| 29 22 41 76 65 72 61 67 | 65 20 63 68 61 6e 67 65 |)"Averag|e change|
|00002220| 20 69 6e 20 52 50 49 20 | 70 65 72 20 61 6e 6e 75 | in RPI |per annu|
|00002230| 6d 20 69 73 20 22 2c 61 | 76 72 70 69 3b 22 20 70 |m is ",a|vrpi;" p|
|00002240| 74 73 22 0d 00 5a 37 f1 | 8a 30 2c 31 33 29 22 41 |ts"..Z7.|.0,13)"A|
|00002250| 76 65 72 61 67 65 20 20 | 72 61 74 65 20 20 6f 66 |verage |rate of|
|00002260| 20 20 69 6e 66 6c 61 74 | 69 6f 6e 20 20 20 20 20 | inflat|ion |
|00002270| 20 20 22 2c 69 3b 22 20 | 25 22 0d 00 5b 42 f1 8a | ",i;" |%"..[B..|
|00002280| 30 2c 31 35 29 22 49 6e | 20 20 22 3b 64 61 74 65 |0,15)"In| ";date|
|00002290| 31 24 3b 22 20 20 74 68 | 65 20 20 73 75 6d 20 20 |1$;" th|e sum |
|000022a0| 67 69 76 65 6e 20 20 77 | 61 73 20 20 20 20 20 20 |given w|as |
|000022b0| 20 a3 20 20 22 2c 70 72 | 69 63 65 31 0d 00 5c 42 | . ",pr|ice1..\B|
|000022c0| f1 8a 30 2c 31 37 29 22 | 67 69 76 69 6e 67 20 61 |..0,17)"|giving a|
|000022d0| 6e 20 65 71 75 69 76 61 | 6c 65 6e 74 20 76 61 6c |n equiva|lent val|
|000022e0| 75 65 20 69 6e 20 22 3b | 64 61 74 65 32 24 3b 22 |ue in ";|date2$;"|
|000022f0| 20 6f 66 20 a3 20 22 2c | 70 72 69 63 65 32 0d 00 | of . ",|price2..|
|00002300| 5d 26 f1 8a 30 2c 32 32 | 29 22 50 72 65 73 73 20 |]&..0,22|)"Press |
|00002310| 52 45 54 55 52 4e 20 74 | 6f 20 63 6f 6e 74 69 6e |RETURN t|o contin|
|00002320| 75 65 22 3b 0d 00 5e 0b | f5 3a fd a5 3d 31 33 0d |ue";..^.|.:..=13.|
|00002330| 00 5f 05 e1 0d 00 60 04 | 0d 00 61 0b dd f2 74 69 |._....`.|..a...ti|
|00002340| 74 6c 65 0d 00 62 07 ef | 20 35 0d 00 63 09 40 25 |tle..b..| 5..c.@%|
|00002350| 3d 31 30 0d 00 64 16 c8 | 93 20 31 30 2c 38 32 30 |=10..d..|. 10,820|
|00002360| 2c 31 32 36 30 2c 31 36 | 30 0d 00 65 17 ef 20 32 |,1260,16|0..e.. 2|
|00002370| 33 2c 31 37 2c 37 2c 36 | 2c 38 3b 31 36 3b 30 3b |3,17,7,6|,8;16;0;|
|00002380| 0d 00 66 0d ec 20 34 32 | 30 2c 39 32 30 0d 00 67 |..f.. 42|0,920..g|
|00002390| 32 f1 22 55 4b 20 52 45 | 54 41 49 4c 20 50 52 49 |2."UK RE|TAIL PRI|
|000023a0| 43 45 53 20 22 3b 6d 69 | 6e 5f 79 65 61 72 25 3b |CES ";mi|n_year%;|
|000023b0| 22 20 2d 20 22 3b 6d 61 | 78 5f 79 65 61 72 25 0d |" - ";ma|x_year%.|
|000023c0| 00 68 24 f4 20 50 52 49 | 4e 54 54 41 42 28 31 33 |.h$. PRI|NTTAB(13|
|000023d0| 2c 33 29 22 28 52 65 62 | 61 73 65 64 20 31 39 38 |,3)"(Reb|ased 198|
|000023e0| 37 29 22 0d 00 69 07 ef | 20 34 0d 00 6a 10 40 25 |7)"..i..| 4..j.@%|
|000023f0| 3d 26 30 30 30 32 30 32 | 30 41 0d 00 6b 05 e1 0d |=&000202|0A..k...|
|00002400| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
